perm filename PASCAL.NDF[PAS,SYS]1 blob
sn#371171 filedate 1978-09-07 generic text, type T, neo UTF8
1) U:PASCAL.PAS[PAS,EJG] and 2) PASCAL.PAS[1,KO] 8-01-78 17:14 pages 1,1
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 7
1) 222;
1) CONST
**** File 2) PASCAL.PAS[1,KO], Page 16 line 7
2) 1,222;
2) CONST
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 78
1) CHCNTMAX := 72;
1) 'T':
**** File 2) PASCAL.PAS[1,KO], Page 16 line 78
2) IF lswitch=true then
2) CHCNTMAX := 72;
2) 'T':
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 154
1) WHILE CH = ' ' DO
**** File 2) PASCAL.PAS[1,KO], Page 16 line 155
2) 1:
2) WHILE CH = ' ' DO
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 163
1) SKIPCOMMENT; INSYMBOL
1) END;
**** File 2) PASCAL.PAS[1,KO], Page 16 line 165
2) SKIPCOMMENT; goto 1
2) END;
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 171
1) SKIPCOMMENT; INSYMBOL
1) END
**** File 2) PASCAL.PAS[1,KO], Page 16 line 173
2) SKIPCOMMENT; goto 1;
2) END
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 178
1) 'A','B','C','D','E','F','G','H','I','J','K','L','M',
**** File 2) PASCAL.PAS[1,KO], Page 16 line 180
2) '"': (*beginning of SLAC comment*)
2) begin
2) nextch;
2) while ch<>'"' do
2) begin
2) if eoln(source) then endofline;
2) nextch;
2) end;
2) if eoln(source) then endofline;
2) nextch;
2) goto 1;
2) end;
2) '#': (*also a comment*)
2) begin
2) while ch='#' do nextch;
2) if eoln(source) then endofline;
2) goto 1;
2) end;
2) 'A','B','C','D','E','F','G','H','I','J','K','L','M',
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 193
1) SKIP←E←DIRECTORY; INSYMBOL
1) END
**** File 2) PASCAL.PAS[1,KO], Page 16 line 213
2) SKIP←E←DIRECTORY; goto 1;
2) END
***************
**** File 1) U:PASCAL.PAS[PAS,EJG], Page 16 line 361
1) '"':
1) BEGIN
**** File 2) PASCAL.PAS[1,KO], Page 16 line 381
2) '!': (*peg 7/78*)
2) BEGIN
***************